<%
FUNCTION CheckEmail(parmaddress)
set myRegExp = new RegExp
' Set the pattern to check for a word followed by
' an @ followed by a word
myRegExp.pattern = "\w+\@[.\w]+"
if myRegExp.Test(parmaddress) then
CheckEmail=True
else
CheckEmail=false
end if
END FUNCTION
page_http_send=request.form("page_http_send")
freetext=request.form("freetext")
freetext=replace(freetext,vbcrlf,"
")
my_name=request.form("my_name")
my_email=request.form("my_email")
fraind_name=request.form("fraind_name")
fraind_email=request.form("fraind_email")
if my_name=nil or my_email=nil or fraind_name=nil or fraind_email=nil then
%>
| |
| , לא כל שדות החובה הוזנו |
| . אנא מלא את השדות ונסה שנית |
| לחץ כאן לתיקון השגיאה |
<%
else
validmail=checkemail(fraind_email)
validmail2=checkemail(my_email)
IF validmail=false or validmail2=false THEN
''response.write validmail & "-" & fraind_email
''response.write validmail2 & "-" & my_email
%>
| |
| , כתובת אימייל שגויה |
| . אנא השלם את השדות ונסה שנית |
| לחץ כאן לתיקון השגיאה |
<%
ELSE
on error resume next
if not err then
'''''''''Auto send mail response!
SMTPServer = "sout.inter.net.il"
set msg = Server.CreateOBject( "JMail.Message" )
'msg.Logging = true
msg.silent = true
'msg.LazySend = False
msg.FromName = my_name
msg.From = my_email
msg.AddRecipient fraind_email, ""
msg.Subject = fraind_name & " שלום "
msg.Body = " היי " & fraind_name & ".
ביקרתי באתר " & biz_name & "
ורציתי להמליץ לך על הקישור הבא :
" & page_http_send & "
" & "טקסט חופשי :
" & freetext
'msg.CharSet = "IL-ASCII"
msg.ContentType = "text/html"
msg.MailServerUserName = "shopc"
msg.MailServerPassWord = "11071971"
if not msg.Send( SMTPServer ) then
' Response.write "תודה רבה."
' Response.write "
Error Error
"
else
' Response.write "תודה רבה."
'Response.Write "
ok ok ok"
end if
set msg = Nothing
'''''''''END send mail response!
%>
| |
תודה לך <%=my_name%> המשך גלישה נעימה
|
המייל נשלח לחברך.
|
<%
else
''response.write "err"
end if
end if
end if
%>